﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>

<card title="张三客栈">
<p>
<%
wpid=request("wid")

ids=myid
%>
<%
if wpid="1" then
tstl="5"
msg1="喝酒"
yname="你喝了一碗酒"
xyyz="50"
else
xyyz="100"
tstl="10"
msg1="住客店"
yname="你在客店住了一晚"
end if

set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select yz from wupin where cstr(ids)='"&myid& "'"
rs.open strsQL,liao,1,1
if clng(xyyz)>rs("yz") then
msg="您不够银两"&msg1&"了！快去赚一点吧，坐食山空啊！"
else
set rs8=Server.CreateObject("ADODB.Recordset")
strsQL="select jy,tl from sx where cstr(ids)='"&myid& "'"
rs8.open strsQL,liao,1,1
myjy=rs8("jy")
mytl=rs8("tl")
 rs8.Close
	Set rs8=Nothing
if mytl=myjy then
msg="您的身体已经够棒了，不能再"&msg1&"了，快去干点活吧！"
elseif clng(tstl+mytl)>=clng(myjy) then
sql="update sx set tl="&myjy&" where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set yz=yz-"&xyyz&" where cstr(ids)="&myid
  liao.Execute(sql)
msg=""&yname&"后,身体完全恢复了."
else
sql="update sx set tl=tl+"&tstl&" where cstr(ids)="&myid
  liao.Execute(sql)
sql="update wupin set yz=yz-"&xyyz&" where cstr(ids)="&myid
  liao.Execute(sql)
msg=""&yname&"后,身体感觉好多了,体力提升"&tstl&".<br/><a href='ke2.asp?wid="&wpid&"&amp;cc="&cc&"&amp;ve="&ve&"'>继续"&msg1&"</a>"
END IF
end if
Response.Write ""&msg&"<br/>=========<br/>"
 rs.Close
	Set rs=Nothing
     
      
%>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">[我的江湖]</a><br/>


<%qingtian.shuchu%>

